home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 62 / Quick PC 62.iso / I386 / IIS5_01.CAB / IIS_Pics_VBScript.asp < prev    next >
Encoding:
Text File  |  1998-05-29  |  1.0 KB  |  38 lines
  1. <%@ LANGUAGE = VBScript %>
  2. <% Option Explicit %>
  3.  
  4. <!*************************
  5. This sample is provided for educational purposes only. It is not intended to be 
  6. used in a production environment, has not been tested in a production environment, 
  7. and Microsoft will not provide technical support for it. 
  8. *************************>
  9.  
  10. <% 
  11.     'Insert PICS ratings.
  12.     Response.PICS("(PICS-1.1 <http://www.rsac.org/ratingv01.html> labels on " & chr(34) & "1997.01.05T08:15-0500" & chr(34) & " until" & chr(34) & "1999.12.31T23:59-0000" & chr(34) & " ratings (v 1 s 0 l 2 n 0))")
  13. %>
  14.  
  15. <HTML>
  16.     <HEAD>
  17.         <TITLE>PICS Sample</TITLE>
  18.     </HEAD>
  19.  
  20.     <BODY BGCOLOR="White" TOPMARGIN="10" LEFTMARGIN="10">
  21.  
  22.  
  23.         <!-- Display header. -->
  24.  
  25.         <FONT SIZE="4" FACE="ARIAL, HELVETICA">
  26.         <B>PICS Sample</B></FONT><BR>
  27.       
  28.         <HR SIZE="1" COLOR="#000000">
  29.  
  30.         <P>This sample has the following PICS rating:</P>
  31.         
  32.         violence = 1<BR>
  33.         sex = 0<BR>
  34.         language = 2<BR>
  35.         nudity = 0<BR>
  36.     </BODY>
  37. </HTML>
  38.